---
title: "Ubicate Cachimbo"
output: 
  flexdashboard::flex_dashboard:
    theme: journal
    orientation: columns
    social: menu
    source_code: embed
    vertical_layout: fill
    width: 70%  
---





```{css, echo=FALSE}
body {
  font-size: 15px;
```


```{r setup, include=FALSE}
library(flexdashboard)
library(leaflet)
library(foreign)
library(fontawesome)
library(knitr)
library(foreign)
library(geojsonio)
library(dplyr)
library(RColorBrewer)
library(raster)
library(DT)
library(plotly)
library(leafem)
library(htmlwidgets)

```

# SERVICIOS EN LA CIUDAD UNIVERSITARIA

Column {data-width=1000}
-------------------------------------


### VISOR DE SERVICIOS


```{r}
  
serv_calor <- raster("C:/Users/diego/Documents/DashBoardUNMSM/raster/servicio_calor.tif") 

perimetro <- shapefile("C:/Users/diego/Documents/MapaUNMSM/facultades/Perimetro UNMSM/Perimetro_unmsm.shp")

calor_unmsm <- raster::crop(serv_calor, extent(perimetro))

calor_mask <- mask(x = calor_unmsm, mask = perimetro)

paleta_calor_servicio <- colorNumeric(c("red", "orange", "yellow", "blue", "darkblue"), values(calor_mask),
                    na.color = "transparent")

  # Ruta al archivo DBF
  ruta_dbf <- "C:/Users/diego/Documents/DashBoardUNMSM/tabla/tabla4/srvicio_table4.dbf"
  
  # Leer el archivo DBF y convertirlo a un dataframe
  dataframe_servicios <- read.dbf(ruta_dbf)
  
  # first 20 quakes
  df.20 <- dataframe_servicios[1:59,]
  
  getColor <- function(dataframe_servicios) {
    sapply(dataframe_servicios$TIPO_DE_SE, function(TIPO_DE_SE) {
      # Personaliza los colores según los nombres de servicios
      if (TIPO_DE_SE == "LIBRERÍA/IMPRENTA") {
        "green"
      } else if (TIPO_DE_SE == "KIOSKO/BODEGA") {
        "yellowgreen"
      } else if (TIPO_DE_SE == "CAFETERIA") {
        "orange"
      } else if (TIPO_DE_SE == "BIBLIOTECA") {
        "blue"
      } else {
        "red"
      }
    })
  }
  
  icons <- awesomeIcons(
    icon = 'ios-close',
    iconColor = 'black',
    library = 'ion',
    markerColor = getColor(df.20)
  )
  
  
  # Leer el archivo GeoJSON
  facultades <- geojsonio::geojson_read("C:/Users/diego/Documents/DashBoardUNMSM/Json/Facultad_UNMSM.geojson", what = "sp")
  servicios <- geojsonio::geojson_read("C:/Users/diego/Documents/DashBoardUNMSM/Json/SERV_UNMSM.geojson", what = "sp")
  
  # Cargar datos del GeoJSON (líneas)
  ruta_burro <- geojsonio::geojson_read("C:/Users/diego/Documents/MapaUNMSM/facultades/geojson/ruta_burro.geojson", what = "sp")
  
  paraderos <- geojsonio::geojson_read("C:/Users/diego/Documents/MapaUNMSM/facultades/geojson/paraderos.geojson", what = "sp")
  
  
  
  
  # Crear el mapa
  m <- leaflet() %>%
    setView(lng = -77.082, lat = -12.056, zoom = 16)  %>%
    addTiles(
    urlTemplate = "https://server.arcgisonline.com/ArcGIS/rest/services/World_Imagery/MapServer/tile/{z}/{y}/{x}",
    attribution = 'Tiles &copy; Esri &mdash; Source: Esri, i-cubed, USDA, USGS, AEX, GeoEye, Getmapping, Aerogrid, IGN, IGP, UPR-EGP, and the GIS User Community'
  )
  
  
  
  # Añadir control de capas y leyenda
  m <- m %>%
    addLayersControl(
      overlayGroups = c("Facultades", "CartoDB","Ruta Bus","Servicios", "Paraderos", "Mapa de calor"),  # Grupos de capas
      options = layersControlOptions(collapsed = TRUE)
    ) %>%
    addLegend(
      position = "bottomright",
      colors = c("green","orange","dodgerblue","red","blue","lightblue","lightsalmon", "gray", "purple"),
      labels = c("Librería/Imprenta","Cafetería","Biblioteca","Kiosko/Bodega
","Paraderos","Bus Perimetral","Facultades", "CartoDB","Hora de Cierre"),
      title = "Leyenda"
    )
  
  # Crear etiquetas
  labels <- sprintf(
    "<strong>%s</strong>",
    facultades$NOMFAC
  ) %>% lapply(htmltools::HTML)
  
  # Añadir polígonos al mapa
  m <- m %>% 
    addPolygons(data=facultades,
      weight = 2,
      opacity = 1,
      color = "lightsalmon",
      dashArray = "0.5",
      fillOpacity = 0.7,
      highlightOptions = highlightOptions(
        weight = 2,
        color = "#000",
        dashArray = "",
        fillOpacity = 0.9,
        bringToFront = TRUE),
      label = labels,
      labelOptions = labelOptions(
        style = list("font-weight" = "normal", padding = "3px 8px"),
        textsize = "15px",
        direction = "auto"),
      group = "Facultades"  # Agregar grupo para el control de capas
    ) %>%
    addProviderTiles(providers$CartoDB.Positron, group = "CartoDB") %>%
    addMiniMap(position = "bottomleft",width = 100, height = 80)
  
  m <- m %>%
  addEasyButton(easyButton(
    icon="fa-globe", title="Zoom Inicial",
    onClick=JS("function(btn, map){ map.setZoom(16); }"))) %>%
  addEasyButton(easyButton(
    icon="fa-crosshairs", title="Localízame",
    onClick=JS("function(btn, map){ map.locate({setView: true}); }"))) 
  
  
  labels_ruta <- sprintf(
    "<strong>Distancia:</strong> %s m",
    ruta_burro$Longitud
  ) %>% lapply(htmltools::HTML)
  
    # Añadir líneas con etiquetas emergentes
  m <- m %>% addPolylines(
    data = ruta_burro,
    color = "lightskyblue",     # Color del borde
    fillOpacity = 0.2,# Color de las líneas
    weight = 8,            # Grosor de las líneas
    group = "Ruta Bus",  # Grupo para el control de capas
    popup = ~paste( ruta_burro$Longitud, "metros"),
    label = labels_ruta,
    labelOptions = labelOptions(
      style = list("font-weight" = "normal", padding = "3px 8px"),
      textsize = "15px",
      direction = "auto")
  )
  
  labels_paraderos <- sprintf(
  "<strong>Paradero:</strong> %s",
  paraderos$Paradero
) %>% lapply(htmltools::HTML)
  
  
   m <- m %>% addPolygons(
    data = paraderos,
    fillColor = "blue",  # Color de relleno
    color = "blue",     # Color del borde
    fillOpacity = 0.5,    # Opacidad del relleno
    weight = 6,            # Grosor del borde
    group = "Paraderos",  # Información emergente al hacer clic
    label = labels_paraderos)
 
  m <- m %>% addRasterImage(calor_mask, colors = paleta_calor_servicio, opacity = 0.6,
  group = "Mapa de calor") %>%
  addLegend(pal = paleta_calor_servicio, values = values(calor_mask),
            title = "Hora de Cierre [h]")
  
  
  labels_serv <- sprintf(
    "<strong>%s</strong><br/>Horario: %s - %s",
    df.20$TIPO_DE_SE, df.20$HOR_INI, df.20$HOR_FIN
  ) %>% lapply(htmltools::HTML)
  
  m <- m %>%
    addAwesomeMarkers(data = df.20, ~ESTE, ~NORTE, icon=icons, label=labels_serv, group = "Servicios") %>%
    setView(lng = -77.082, lat = -12.056, zoom = 16)
  
  

  
  
  # Mostrar el mapa
  m


```


Column {.tabset .tabset-fade}
-------------------------------------

### Descripción

**DESCRIPCIÓN**

El geovisor presenta de manera visual la ubicación geográfica de los servicios disponibles en la ciudad universitaria, con un enfoque específico en resaltar sus respectivos horarios de atención y, en particular, sus momentos de cierre. Esta representación cartográfica permite a los usuarios obtener rápidamente información sobre la disposición espacial de los servicios y sus horarios operativos.

En el geovisor, una capa de escala de colores ha sido implementada para ofrecer una representación gráfica de los servicios que extienden sus horas de cierre hasta altas horas de la noche. Esta funcionalidad emplea una paleta de colores que abarca el periodo desde las 15:00 hasta las 22:00 horas, proporcionando una instantánea visual intuitiva de los servicios que operan durante este intervalo temporal.

Adicionalmente, la inclusión de la ruta del bus perimetral interno en el geovisor brinda a los usuarios la posibilidad de conocer la distancia aproximada entre paradas a lo largo de la ruta. Aunque se destaca que los tiempos de recorrido pueden experimentar variaciones, especialmente en horas pico con mayor afluencia estudiantil, se estima que el bus demora aproximadamente 15 minutos para completar todo el trayecto.


**CIUDAD UNIVERSITARIA**

La reconocida Ciudad Universitaria fue creada en la década de los años sesenta convirtiéndose en uno de los campus universitarios más reconocidos del país donde convergen la identidad y la historia. Sus edificaciones dan cuenta de la diversidad académica que ofrece la Decana de América y donde conviven estudiantes, docenes y personal administrativo de las facultades correspondientes a las cinco áreas del conocimiento académicas que la constituyen. En este espacio se han formado muchas de las figuras más notables del arte, ciencia y política del Perú, y de sus aulas han egresado destacados estudiosos que resaltan a nivel nacional e internacional.

### Tabla

```{r, echo=FALSE}

servicios_CU <- dplyr::select(df.20, OBJECTID, ESTE, NORTE, HOR_INI,TIPO_DE_SE, HOR_FIN)

datatable(servicios_CU ,class="cell-border hover")

```

### Gráfica

```{r, echo=FALSE}

grafico_serv_torta <- data.frame(
  TIPO_DE_SE = c("CAFETERÍA", "KIOSKO/BODEGA", "LIBRERÍA/IMPRENTA","BIBLIOTECA", "AUTOSEGURO", "SALUD/CLINICA"),
  X1960 = c(8, 29, 15, 5, 1, 1 )
)

data_torta <- grafico_serv_torta[, c('TIPO_DE_SE', 'X1960')]

fig <- plot_ly(data_torta, labels = ~TIPO_DE_SE, values = ~X1960)  %>% add_pie(hole = 0.6)
fig <- fig %>% layout(
  title = 'PORCENTAJES DE SERVICIOS EN LA CIUDAD UNIVERSITARIA',
  xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
  yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE)
)

fig

```

# COMEDOR UNIVERSITARIO

## UNMSM

### **Oficina General de Bienestar Universitario - UNMSM**

Estimada comunidad sanmarquina, les comunicamos que a partir del lunes 30 de octubre, la adquisición de tickets para acceder al comedor en nuestras diversas sedes será exclusivamente virtual.
🗓️ Fecha de inicio: 30 de octubre
📲 Mantener el modo oscuro deshabilitado de tu dispositivo móvil para la lectura del ticket al ingreso al servido.

🕘Horario de emisión de tickets virtuales:
* Desayuno: 6:00 am
-Almuerzo: 10:00 am
-Cena: 4:00 pm

🕘Horario de ingreso al servido:
-Desayuno: 7:00 am
-Almuerzo: 12:00 pm
-Cena: 5:00 pm

👀 Acceso preferencial de residentes y CONADIS no emiten ticket, es directo mostrando documentos de identidad que acredite su condición.
🏅 Deportistas pueden emitir si desean su ticket virtual o ingresar con la cola preferencial, respetando los 80 primeros en Ciudad Universitaria y 20 en Cangallo.

🔴[OBLIGATORIO] Les recordamos la importancia de tener consigo su documento físico (carnet o DNI) al momento de ingresar. Para alumnos residentes mostrar su carnet de residentes, en caso de robo o perdida, acercarse a la oficina de servicio social.

👀 [IMPORTANTE] El ticket es personal e intransferible, se estará verificando el momento del ingreso.

❌ [PENALIZACIÓN] Alumno que acumule tres tickets sin utilizar en un mismo servicio será suspendido por siete días del comedor en intervalos de quince días.

### **USO DE LA APLICACIÓN**

```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/app_uso.jpg")
```

## **TICKETS VIRTUAL**
### **TICKETS VIRTUAL**

```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/apk_unmsm.jpg")
```

# BUS EXTERNO

## BUS EXTERNO

### RUTAS DEL BUS EXTERNO
📢 ¡Atención sanmarquinos!
✅ Los buses de la #UNMSM reanudan sus servicios de traslado externo. ¡Conoce las rutas!
🚌Paradero inicial
6:15 a. m. Hospital Sergio E. Bernales (Norte), hospital María Auxiliadora (Sur), grifo Vista Alegre Prolongación Javier Prado (Centro) y San Carlos - San Juan de Lurigancho (Este). 
🚌Salida de la Ciudad Universitaria
Administrativos: 
5:50 p. m. Explanada de Facultad de Odontología
Estudiantes: 
6:05 p. m. Explanada de la Facultad de Derecho
🔴Las rutas de los buses estarán sujetos a modificación a raiz de las obras y construcciones que se están llevando a cabo en Lima Metropolitana.

Ruta Norte: 
https://www.facebook.com/watch/?v=1265586960832468

Ruta Centro: 
https://www.facebook.com/watch/?v=1300748160786033

Ruta Sur: 
https://www.facebook.com/watch/?v=1424578748327902

Ruta Este: 
https://www.facebook.com/watch/?v=1263155727623178

### BUS EXTERNO

```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/bus externo.jpg")
```

## BUS EXTERNO

### RUTA NORTE

```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/norte.jpg")
```

### RUTA CENTRO

```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/centro.jpg")
```

## BUS EXTERNO

### RUTA SUR

```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/sur.jpg")
```

### RUTA ESTE

```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/este.jpg")
```

# AUTORES { .inverse }

## ESCUELA Y UNIVERSIDAD

### UNIVERSIDAD Y ESCUELA PROFESIONAL

```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/IG_unmSM.png")
```



Column 
-------------------------------------

### Autor 1

<p style="text-align: center;"><span style="color: #000000;"><strong>DIEGO MORANTE SUAREZ</strong></span></p>
<p style="text-align: center;"><em><span style="color: #000000;"><strong>-Ingenier&iacute;a Geogr&aacute;fica - UNMSM-</strong></span></em></p>
<p style="text-align: left;"><span style="color: #000000;"><strong>FB:&nbsp;<a href="https://www.facebook.com/Diegomorantesuarez/">https://www.facebook.com/Diegomorantesuarez/</a></strong></span></p>
<p style="text-align: left;"><span style="color: #000000;"><strong>LI:&nbsp;<a href="https://www.linkedin.com/in/diego-humberto-morante-suarez-b38a43279/">https://www.linkedin.com/in/diego-humberto-morante-suarez-b38a43279/</a></strong></span></p>
<p style="text-align: left;"><span style="color: #000000;"><strong>GH:&nbsp;<a href="https://github.com/DiegoMoranteSuarez">https://github.com/DiegoMoranteSuarez</a></strong></span></p>
<p style="text-align: left;"><span style="color: #000000;"><strong>GMAIL: <a href="mailto:diego.morante@unmsm.edu.pe">diego.morante@unmsm.edu.pe</a></strong></span></p>
<p style="text-align: left;">&nbsp;</p>

### Foto

```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/Diego.png")
```

Column
-------------------------------------

### Autor 2

<p style="text-align: center;"><strong>DANAE QUISPE SOLORZANO</strong></p>
<p style="text-align: center;"><em><span style="color: #000000;"><strong>-Ingenier&iacute;a Geogr&aacute;fica - UNMSM-</strong></span></em></p>
<p style="text-align: left;"><span style="color: #000000;"><strong>FB: https://www.facebook.com/profile.php?id=100001447611062&amp;sk=about</strong></span></p>
<p style="text-align: left;"><span style="color: #000000;"><strong>LI: https://www.linkedin.com/in/danae-quispe-solorzano-06bb21234/</strong></span></p>
<p style="text-align: left;"><span style="color: #000000;"><strong>CORREO: danae.quispe@unmsm.edu.pe </strong></span></p>

### Foto

```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/Danae.png")
```

Column 
-------------------------------------

### Autor 3

<p style="text-align: center;"><strong>ANDERSON LLIUYA CARRERA</strong></p>
<p style="text-align: center;"><em><span style="color: #000000;"><strong>-Ingenier&iacute;a Geogr&aacute;fica - UNMSM-</strong></span></em></p>
<p style="text-align: left;"><span style="color: #000000;"><strong>FB: https://www.facebook.com/anderson.lliuya</strong></span></p>
<p style="text-align: left;"><span style="color: #000000;"><strong>LI: https://www.linkedin.com/in/anderson-lliuya-carrera-113a25213/?originalSubdomain=pe</strong></span></p>
<p style="text-align: left;"><span style="color: #000000;"><strong>CORREO: anderson.lliuya@unmsm.edu.pe</strong></span></p>

### Foto

```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/Anderson.png")
```